program blank;
{$mode objfpc}{$H+}
uses 
  math,SysUtils,facecat;  
var
  gPaint:FCPaint;

{Windows消息循环}
procedure WndProc(hWnd:integer; message:integer; wParam:integer; lParam:integer); cdecl;
begin
  WndProcDefault(gPaint, hWnd, message, wParam, lParam);
end;

begin
  gPaint := FCPaint.Create();
  ShowWindow2();
  ShowWindowMax();
  gPaint.hWnd := GetHWnd();
  gPaint.gID := CreateGdiPlus(gPaint.hWnd); 
  gPaint.size := FCSize.Create(getWindowWidth(gPaint.hWnd), getWindowHeight(gPaint.hWnd));
  RegisterWndProc(@WndProc);
  gPaint.defaultUIStyle := 'dark';
  RenderFaceCat(gPaint, 'mainframe.xml');
  PumpMessage();
end.

